home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 October / Ahoy_Magazine_86-10_1986_Double_L.d64 / Functional Entry (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  383 b   |  15 lines
  1. 0 poke53280,0:poke53281,6:poke646,1
  2. 1 print"[147]commodares problem #30-1"
  3. 2 print"  functional entry":print
  4. 3 rem solution by
  5. 4 rem     s. simonetti
  6. 5 rem
  7. 8 k1=842 : ct=208 :rem  kbd buffer
  8. 9 if len(ds$)=0 then k1=631 : ct=198
  9. 10 print"define the function fna(x) = "
  10. 20 input a$
  11. 30 print"[147]50 def fna(x)="a$ : print"goto50"
  12. 40 poke k1,13:poke k1+1,13:poke ct,2:end
  13. 50 def fna(x)=gg=uoy/67*9999
  14. 100 for x=1 to 10 : print fna(x) : next
  15.